home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / NCMCTCSUSER.cpt / NCMC-TCS user / card_3528.txt < prev    next >
Text File  |  1988-09-28  |  4KB  |  199 lines
  1. -- card: 3528 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2777
  5. -- name: Log in
  6. ----- HyperTalk script -----
  7. on idle
  8.   global port
  9.   put the time into field 4
  10.   put line 3 of field 1 into firstn
  11.   put line 4 of field 1 into lastn
  12.   put line 5 of field 1 into passw
  13.   if SPortHasChar(port) then
  14.     put empty into reslts
  15.     repeat 3
  16.       put recvUpTo(port,return,2,false,false) into newIn
  17.       put newIn after reslts
  18.     end repeat
  19.     if the length of reslts >0 then
  20.       if reslts contains "CONNECT " then
  21.         put "Logging you in "&firstn
  22.         wait 40
  23.         sendSPort port,false,return
  24.       else if reslts contains "CARRIER" then
  25.         beep
  26.         put "Sorry "&firstn&" but the was no carrier detected"
  27.         wait 60
  28.         Hide Msg
  29.       else if reslts contains "BUSY" then
  30.         answer "Line is busy, try later" with OK
  31.       else  if reslts contains "first" then
  32.       wait 30
  33.       sendSPort port,false,firstn &return
  34.     else if reslts contains "last" then
  35.       wait 30
  36.       sendSPort port,false,lastn &return
  37.     else if reslts contains "password" then
  38.       wait 30
  39.       sendSPort port,false,passw &return
  40.       go to card "Main Menu"
  41.       pass idle
  42.     end if
  43.   end if
  44. end if
  45. end idle
  46.  
  47.  
  48. -- part 1 (button)
  49. -- low flags: 00
  50. -- high flags: A004
  51. -- rect: left=195 top=175 right=197 bottom=295
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Log On
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   global port,number
  63.   sendSPort port,false,"ATZ" & return
  64.   wait 90
  65.   sendSPort port,false,"ATM3" & return
  66.   wait 30
  67.   if number <> empty then sendSPort port,false,"ATDP"&number & return
  68.   else answer "Go to USER CARD and fill out dialing area"
  69. end mouseUp
  70.  
  71.  
  72.  
  73. -- part 2 (button)
  74. -- low flags: 00
  75. -- high flags: 8004
  76. -- rect: left=398 top=31 right=59 bottom=503
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: First Time User
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.   go to card setUpUser
  88. end mouseUp
  89.  
  90.  
  91.  
  92. -- part 10 (button)
  93. -- low flags: 00
  94. -- high flags: 0000
  95. -- rect: left=0 top=296 right=342 bottom=44
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 20689 / 20689
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: New Button
  104. ----- HyperTalk script -----
  105. on mouseUp
  106.   go home
  107. end mouseUp
  108.  
  109.  
  110.  
  111. -- part 12 (button)
  112. -- low flags: 00
  113. -- high flags: 0000
  114. -- rect: left=54 top=31 right=68 bottom=90
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 21060 / 21060
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: New Button
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   show card field "info"
  126. end mouseUp
  127.  
  128.  
  129.  
  130. -- part 18 (field)
  131. -- low flags: 81
  132. -- high flags: 0004
  133. -- rect: left=62 top=133 right=237 bottom=462
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 0
  137. -- font id: 3
  138. -- text size: 9
  139. -- style flags: 0
  140. -- line height: 12
  141. -- part name: info
  142. ----- HyperTalk script -----
  143. on mouseup
  144.   hide card field "info"
  145. end mouseup
  146.  
  147.  
  148. -- part 21 (field)
  149. -- low flags: 01
  150. -- high flags: 0000
  151. -- rect: left=164 top=76 right=88 bottom=319
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 4
  156. -- text size: 9
  157. -- style flags: 16384
  158. -- line height: 12
  159. -- part name: Version Number
  160.  
  161.  
  162. -- part contents for background part 4
  163. ----- text -----
  164. Wed, Sep 28, 1988
  165.  
  166. -- part contents for background part 5
  167. ----- text -----
  168. 9:12 PM
  169.  
  170. -- part contents for card part 18
  171. ----- text -----
  172. If you are using this stack for the first time, please click on the "First Time User" button.  Here you can fill out all your info so that this stack can successfully log you on.  PLEASE make sure that your password is CORRECT or it will screw up this system royally.
  173.  
  174. Then all you have to do here is click on the 'Log In" button, and you will be connected to the NCMC TCS! It's that easy.
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182.  
  183. -- part contents for background part 1
  184. ----- text -----
  185. 1
  186. 19502
  187.  
  188.  
  189.  
  190. 2336262
  191. Wed, Sep 28, 1988, 9:12 PM
  192.  
  193. -- part contents for background part 3
  194. ----- text -----
  195. Sun, Sep 25, 1988, 10:17 PM
  196.  
  197. -- part contents for card part 21
  198. ----- text -----
  199. Stack Version: .95√ü